(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.4' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     39984,       1339]
NotebookOptionsPosition[     32876,       1121]
NotebookOutlinePosition[     35925,       1202]
CellTagsIndexPosition[     35801,       1196]
WindowTitle->FeynAmpDenominator
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[GridBox[{
   {Cell["FEYN CALC SYMBOL", "PacletNameCell"], Cell[TextData[{
     Cell[BoxData[
      ActionMenuBox[
       FrameBox[
        InterpretationBox[Cell[TextData[{
          "See Also",
          StyleBox[" \[FilledDownTriangle]", "AnchorBarArrow",
           StripOnInput->False]
         }]],
         TextCell[
          Row[{"See Also", 
            Style[" \[FilledDownTriangle]", "AnchorBarArrow"]}]]],
        StripOnInput->False], {"\<\"FAD\"\>":>Documentation`HelpLookup[
       "paclet:FeynCalc/ref/FAD"], "\<\"SFAD\"\>":>Documentation`HelpLookup[
       "paclet:FeynCalc/ref/SFAD"], "\<\"CFAD\"\>":>Documentation`HelpLookup[
       "paclet:FeynCalc/ref/CFAD"], "\<\"GFAD\"\>":>Documentation`HelpLookup[
       "paclet:FeynCalc/ref/GFAD"], "\<\"FeynAmpDenominatorSimplify\"\>":>
       Documentation`HelpLookup[
       "paclet:FeynCalc/ref/FeynAmpDenominatorSimplify"]},
       Appearance->None,
       MenuAppearance->Automatic,
       MenuStyle->"SeeAlso"]],
      LineSpacing->{1.4, 0}],
     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
     Cell[BoxData[
      ActionMenuBox[
       FrameBox[
        InterpretationBox[Cell[TextData[{
          "URL",
          StyleBox[" \[FilledDownTriangle]", "AnchorBarArrow",
           StripOnInput->False]
         }]],
         TextCell[
          Row[{"URL", 
            Style[" \[FilledDownTriangle]", "AnchorBarArrow"]}]]],
        StripOnInput->False], {"\<\"FeynCalc/ref/FeynAmpDenominator\"\>":>
       None, "\<\"Copy Wolfram Documentation Center URL\"\>":>
       Module[{DocumentationSearch`Private`nb$}, 
        DocumentationSearch`Private`nb$ = NotebookPut[
           Notebook[{
             Cell["FeynCalc/ref/FeynAmpDenominator"]}, Visible -> False]]; 
        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
       Delimiter, "\<\"Copy web URL\"\>":>
       Module[{DocumentationSearch`Private`nb$}, 
        DocumentationSearch`Private`nb$ = NotebookPut[
           Notebook[{
             Cell[
              BoxData[
               MakeBoxes[
                Hyperlink[
                "http://reference.wolfram.com/language/FeynCalc/ref/\
FeynAmpDenominator.html"], StandardForm]], "Input", TextClipboardType -> 
              "PlainText"]}, Visible -> False]]; 
        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
        NotebookClose[DocumentationSearch`Private`nb$]; 
        Null], "\<\"Go to web URL\"\>":>FrontEndExecute[{
         NotebookLocate[{
           URL[
            StringJoin[
             If[
              TrueQ[DocumentationBuild`Make`Private`wsmlinkQ$132172], 
              "http://reference.wolfram.com/system-modeler/", 
              "http://reference.wolfram.com/language/"], 
             "FeynCalc/ref/FeynAmpDenominator", ".html"]], None}]}]},
       Appearance->None,
       MenuAppearance->Automatic,
       MenuStyle->"URLMenu"]],
      LineSpacing->{1.4, 0}]
    }], "AnchorBar"]}
  }]], "AnchorBarGrid",
 GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
     Scaled[0.65], {
      Scaled[0.34]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
 CellID->1],

Cell[TextData[{
 Cell["FeynAmpDenominator", "ObjectName"],
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{8, 0}],
    CacheGraphics->False],
   Spacer[8]]]],
 Cell[BoxData[""], "ObjectNameTranslation"]
}], "ObjectNameGrid"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{"FeynAmpDenominator", "[", "...", "]"}]], "InlineFormula"],
     " represents the inverse denominators of the propagators, i.e. \
FeynAmpDenominator[x] is 1/x. Different propagator denominators are \
represented using special heads such as PropagatorDenominator, \
StandardPropagatorDenominator, CartesianPropagatorDenominator etc."
    }]]}
  }]], "Usage",
 GridBoxOptions->{
 GridBoxBackground->{
  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
   "RowsIndexed" -> {}}},
 CellID->982511436],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{6, 0}],
    CacheGraphics->False],
   Spacer[6]]]],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CellTags->"PrimaryExamplesSection",
 CellID->2051527841],

Cell[CellGroupData[{

Cell[TextData[{
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CellID->1744548355],

Cell[TextData[{
 "The old way to represent standard Lorentzian propagators is to use \
PropagatorDenominator. Here the sign of the mass term is fixed to be ",
 Cell[BoxData[
  RowBox[{"-", "1"}]], "InlineFormula"],
 " and no information on the ",
 Cell[BoxData[
  RowBox[{"I", " ", "\[Eta]"}]], "InlineFormula"],
 "- prescription is available. Furterhmore, this way it is not possible to \
enter eikonal propagators"
}], "Notes"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FeynAmpDenominator", "[", 
  RowBox[{"PropagatorDenominator", "[", 
   RowBox[{
    RowBox[{"Momentum", "[", 
     RowBox[{"p", ",", "D"}], "]"}], ",", "m"}], "]"}], "]"}]], "Input",
 CellTags->"FeynAmpDenominator",
 CellLabel->"In[1]:=",
 CellID->1348679348],

Cell[BoxData[
 FormBox[
  FractionBox["1", 
   InterpretationBox[
    RowBox[{
     SuperscriptBox[
      FormBox[
       FormBox["p",
        TraditionalForm],
       TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
     "\[InvisibleSpace]", 
     SuperscriptBox["m", "2"]}],
    SequenceForm[
     FeynCalc`Pair[
      FeynCalc`Momentum[$CellContext`p, D], 
      FeynCalc`Momentum[$CellContext`p, D]], "-", $CellContext`m^2],
    Editable->False]], TraditionalForm]], "Output",
 ImageSize->{61, 40},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"FeynAmpDenominator",
 CellLabel->"Out[1]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FeynAmpDenominator", "[", 
  RowBox[{
   RowBox[{"PropagatorDenominator", "[", 
    RowBox[{
     RowBox[{"Momentum", "[", 
      RowBox[{"p", ",", "D"}], "]"}], ",", "m"}], "]"}], ",", 
   RowBox[{"PropagatorDenominator", "[", 
    RowBox[{
     RowBox[{"Momentum", "[", 
      RowBox[{
       RowBox[{"p", "-", "q"}], ",", "D"}], "]"}], ",", "m"}], "]"}]}], 
  "]"}]], "Input",
 CellTags->"FeynAmpDenominator",
 CellLabel->"In[2]:=",
 CellID->1096136338],

Cell[BoxData[
 FormBox[
  FractionBox["1", 
   RowBox[{
    RowBox[{"(", 
     InterpretationBox[
      RowBox[{
       SuperscriptBox[
        FormBox[
         FormBox["p",
          TraditionalForm],
         TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
       "\[InvisibleSpace]", 
       SuperscriptBox["m", "2"]}],
      SequenceForm[
       FeynCalc`Pair[
        FeynCalc`Momentum[$CellContext`p, D], 
        FeynCalc`Momentum[$CellContext`p, D]], "-", $CellContext`m^2],
      Editable->False], ")"}], ".", 
    RowBox[{"(", 
     InterpretationBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            FormBox["p",
             TraditionalForm], "-", 
            FormBox["q",
             TraditionalForm]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
       "\[InvisibleSpace]", 
       SuperscriptBox["m", "2"]}],
      SequenceForm[
       FeynCalc`Pair[
        FeynCalc`Momentum[$CellContext`p - $CellContext`q, D], 
        FeynCalc`Momentum[$CellContext`p - $CellContext`q, D]], 
       "-", $CellContext`m^2],
      Editable->False], ")"}]}]], TraditionalForm]], "Output",
 ImageSize->{189, 43},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"FeynAmpDenominator",
 CellLabel->"Out[2]="]
}, Open  ]],

Cell["\<\
The shortcut to enter FeynAmpDenominators with PropagatorDenominators is FAD\
\>", "Notes"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"FeynAmpDenominator", "[", 
    RowBox[{"PropagatorDenominator", "[", 
     RowBox[{
      RowBox[{"Momentum", "[", 
       RowBox[{"p", ",", "D"}], "]"}], ",", "m"}], "]"}], "]"}], "//", 
   "FCE"}], "//", "StandardForm"}]], "Input",
 CellTags->"FeynAmpDenominator",
 CellLabel->"In[3]:=",
 CellID->1592188506],

Cell[BoxData[
 RowBox[{"FAD", "[", 
  RowBox[{"{", 
   RowBox[{"p", ",", "m"}], "}"}], "]"}]], "Output",
 ImageSize->{95, 15},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"FeynAmpDenominator",
 CellLabel->"Out[3]//StandardForm="]
}, Open  ]],

Cell["\<\
Since version 9.3, a more flexible input is possible using \
StandardPropagatorDenominator\
\>", "Notes"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FeynAmpDenominator", "[", 
  RowBox[{"StandardPropagatorDenominator", "[", 
   RowBox[{
    RowBox[{"Momentum", "[", 
     RowBox[{"p", ",", "D"}], "]"}], ",", "0", ",", 
    RowBox[{"-", 
     RowBox[{"m", "^", "2"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1"}], "}"}]}], "]"}], "]"}]], "Input",
 CellLabel->"In[4]:="],

Cell[BoxData[
 FormBox[
  FractionBox["1", 
   TemplateBox[{"\"(\"",SuperscriptBox[
      FormBox[
       FormBox["p", TraditionalForm], TraditionalForm], 2],RowBox[{"-", 
       SuperscriptBox["m", "2"]}],"\"+\"",
     RowBox[{"\[ImaginaryI]", " ", "\"\[Eta]\""}],"\")\""},
    "RowDefault"]], TraditionalForm]], "Output",
 ImageSize->{103, 40},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[4]="]
}, Open  ]],

Cell["\<\
The mass term can be anything, as long as it does not depend on the loop \
momenta\
\>", "Notes"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FeynAmpDenominator", "[", 
  RowBox[{"StandardPropagatorDenominator", "[", 
   RowBox[{
    RowBox[{"Momentum", "[", 
     RowBox[{"p", ",", "D"}], "]"}], ",", "0", ",", 
    RowBox[{"m", "^", "2"}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1"}], "}"}]}], "]"}], "]"}]], "Input",
 CellLabel->"In[5]:="],

Cell[BoxData[
 FormBox[
  FractionBox["1", 
   TemplateBox[{"\"(\"",SuperscriptBox[
      FormBox[
       FormBox["p", TraditionalForm], TraditionalForm], 2],"\"+\"",
     SuperscriptBox["m", "2"],"\"+\"",
     RowBox[{"\[ImaginaryI]", " ", "\"\[Eta]\""}],"\")\""},
    "RowDefault"]], TraditionalForm]], "Output",
 ImageSize->{102, 40},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[5]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FeynAmpDenominator", "[", 
  RowBox[{"StandardPropagatorDenominator", "[", 
   RowBox[{
    RowBox[{"Momentum", "[", 
     RowBox[{"p", ",", "D"}], "]"}], ",", "0", ",", "MM", ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1"}], "}"}]}], "]"}], "]"}]], "Input",
 CellLabel->"In[6]:="],

Cell[BoxData[
 FormBox[
  FractionBox["1", 
   TemplateBox[{"\"(\"",SuperscriptBox[
      FormBox[
       FormBox["p", TraditionalForm], TraditionalForm], 2],"\"+\"","MM",
     "\"+\"",RowBox[{"\[ImaginaryI]", " ", "\"\[Eta]\""}],"\")\""},
    "RowDefault"]], TraditionalForm]], "Output",
 ImageSize->{105, 40},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[6]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FeynAmpDenominator", "[", 
  RowBox[{"StandardPropagatorDenominator", "[", 
   RowBox[{
    RowBox[{"Momentum", "[", 
     RowBox[{"p", ",", "D"}], "]"}], ",", "0", ",", 
    RowBox[{"SPD", "[", 
     RowBox[{"q", ",", "q"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1"}], "}"}]}], "]"}], "]"}]], "Input",
 CellLabel->"In[7]:="],

Cell[BoxData[
 FormBox[
  FractionBox["1", 
   TemplateBox[{"\"(\"",SuperscriptBox[
      FormBox[
       FormBox["p", TraditionalForm], TraditionalForm], 2],"\"+\"",FormBox[
      SuperscriptBox[
       FormBox[
        FormBox["q", TraditionalForm], TraditionalForm], 2], TraditionalForm],
     "\"+\"",RowBox[{"\[ImaginaryI]", " ", "\"\[Eta]\""}],"\")\""},
    "RowDefault"]], TraditionalForm]], "Output",
 ImageSize->{99, 40},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[7]="]
}, Open  ]],

Cell[TextData[{
 "One can also change the sign of the  ",
 Cell[BoxData[
  RowBox[{"I", " ", "\[Eta]"}]], "InlineFormula"],
 "- prescription, although currently no internal functions make use of it"
}], "Notes"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FeynAmpDenominator", "[", 
  RowBox[{"StandardPropagatorDenominator", "[", 
   RowBox[{
    RowBox[{"Momentum", "[", 
     RowBox[{"p", ",", "D"}], "]"}], ",", "0", ",", 
    RowBox[{"-", 
     RowBox[{"m", "^", "2"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", 
      RowBox[{"-", "1"}]}], "}"}]}], "]"}], "]"}]], "Input",
 CellLabel->"In[8]:="],

Cell[BoxData[
 FormBox[
  FractionBox["1", 
   TemplateBox[{"\"(\"",SuperscriptBox[
      FormBox[
       FormBox["p", TraditionalForm], TraditionalForm], 2],RowBox[{"-", 
       SuperscriptBox["m", "2"]}],"\"-\"",
     RowBox[{"\[ImaginaryI]", " ", "\"\[Eta]\""}],"\")\""},
    "RowDefault"]], TraditionalForm]], "Output",
 ImageSize->{103, 40},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[8]="]
}, Open  ]],

Cell["The propagator may be raised to integer or symbolic powers", "Notes"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FeynAmpDenominator", "[", 
  RowBox[{"StandardPropagatorDenominator", "[", 
   RowBox[{
    RowBox[{"Momentum", "[", 
     RowBox[{"p", ",", "D"}], "]"}], ",", "0", ",", 
    RowBox[{"m", "^", "2"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "1"}], "}"}]}], "]"}], "]"}]], "Input",
 CellLabel->"In[9]:="],

Cell[BoxData[
 FormBox[
  FractionBox["1", 
   SuperscriptBox[
    TemplateBox[{"\"(\"",SuperscriptBox[
       FormBox[
        FormBox["p", TraditionalForm], TraditionalForm], 2],"\"+\"",
      SuperscriptBox["m", "2"],"\"+\"",
      RowBox[{"\[ImaginaryI]", " ", "\"\[Eta]\""}],"\")\""},
     "RowDefault"], "3"]], TraditionalForm]], "Output",
 ImageSize->{110, 40},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[9]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FeynAmpDenominator", "[", 
  RowBox[{"StandardPropagatorDenominator", "[", 
   RowBox[{
    RowBox[{"Momentum", "[", 
     RowBox[{"p", ",", "D"}], "]"}], ",", "0", ",", 
    RowBox[{"m", "^", "2"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "2"}], ",", "1"}], "}"}]}], "]"}], "]"}]], "Input",
 CellLabel->"In[10]:="],

Cell[BoxData[
 FormBox[
  SuperscriptBox[
   TemplateBox[{"\"(\"",SuperscriptBox[
      FormBox[
       FormBox["p", TraditionalForm], TraditionalForm], 2],"\"+\"",
     SuperscriptBox["m", "2"],"\"+\"",
     RowBox[{"\[ImaginaryI]", " ", "\"\[Eta]\""}],"\")\""},
    "RowDefault"], "2"], TraditionalForm]], "Output",
 ImageSize->{106, 18},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[10]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FeynAmpDenominator", "[", 
  RowBox[{"StandardPropagatorDenominator", "[", 
   RowBox[{
    RowBox[{"Momentum", "[", 
     RowBox[{"p", ",", "D"}], "]"}], ",", "0", ",", 
    RowBox[{"m", "^", "2"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "1"}], "}"}]}], "]"}], "]"}]], "Input",
 CellLabel->"In[11]:="],

Cell[BoxData[
 FormBox[
  SuperscriptBox[
   TemplateBox[{"\"(\"",SuperscriptBox[
      FormBox[
       FormBox["p", TraditionalForm], TraditionalForm], 2],"\"+\"",
     SuperscriptBox["m", "2"],"\"+\"",
     RowBox[{"\[ImaginaryI]", " ", "\"\[Eta]\""}],"\")\""},
    "RowDefault"], 
   RowBox[{"-", "n"}]], TraditionalForm]], "Output",
 ImageSize->{117, 18},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[11]="]
}, Open  ]],

Cell["Eikonal propagators are also supported", "Notes"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FeynAmpDenominator", "[", 
  RowBox[{"StandardPropagatorDenominator", "[", 
   RowBox[{"0", ",", 
    RowBox[{"Pair", "[", 
     RowBox[{
      RowBox[{"Momentum", "[", 
       RowBox[{"p", ",", "D"}], "]"}], ",", 
      RowBox[{"Momentum", "[", 
       RowBox[{"q", ",", "D"}], "]"}]}], "]"}], ",", 
    RowBox[{"-", 
     RowBox[{"m", "^", "2"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1"}], "}"}]}], "]"}], "]"}]], "Input",
 CellLabel->"In[12]:="],

Cell[BoxData[
 FormBox[
  FractionBox["1", 
   TemplateBox[{"\"(\"",RowBox[{
       FormBox[
        FormBox["p", TraditionalForm], TraditionalForm], 
       FormBox["\"\[CenterDot]\"", TraditionalForm], 
       FormBox[
        FormBox["q", TraditionalForm], TraditionalForm]}],RowBox[{"-", 
       SuperscriptBox["m", "2"]}],"\"+\"",
     RowBox[{"\[ImaginaryI]", " ", "\"\[Eta]\""}],"\")\""},
    "RowDefault"]], TraditionalForm]], "Output",
 ImageSize->{118, 40},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[12]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FeynAmpDenominator", "[", 
  RowBox[{"StandardPropagatorDenominator", "[", 
   RowBox[{"0", ",", 
    RowBox[{"Pair", "[", 
     RowBox[{
      RowBox[{"Momentum", "[", 
       RowBox[{"p", ",", "D"}], "]"}], ",", 
      RowBox[{"Momentum", "[", 
       RowBox[{"q", ",", "D"}], "]"}]}], "]"}], ",", "0", ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1"}], "}"}]}], "]"}], "]"}]], "Input",
 CellLabel->"In[13]:="],

Cell[BoxData[
 FormBox[
  FractionBox["1", 
   TemplateBox[{"\"(\"",RowBox[{
       FormBox[
        FormBox["p", TraditionalForm], TraditionalForm], 
       FormBox["\"\[CenterDot]\"", TraditionalForm], 
       FormBox[
        FormBox["q", TraditionalForm], TraditionalForm]}],"\"+\"",
     RowBox[{"\[ImaginaryI]", " ", "\"\[Eta]\""}],"\")\""},
    "RowDefault"]], TraditionalForm]], "Output",
 ImageSize->{84, 38},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[13]="]
}, Open  ]],

Cell[TextData[{
 "FeynCalc keeps trace of the signs of the scalar products in the eikonal \
propagators. This is where the  ",
 Cell[BoxData[
  RowBox[{"I", " ", "\[Eta]"}]], "InlineFormula"],
 "- prescription may come handy"
}], "Notes"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FeynAmpDenominator", "[", 
  RowBox[{"StandardPropagatorDenominator", "[", 
   RowBox[{"0", ",", 
    RowBox[{"-", 
     RowBox[{"Pair", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", 
        RowBox[{"p", ",", "D"}], "]"}], ",", 
       RowBox[{"Momentum", "[", 
        RowBox[{"q", ",", "D"}], "]"}]}], "]"}]}], ",", "0", ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1"}], "}"}]}], "]"}], "]"}]], "Input",
 CellLabel->"In[14]:="],

Cell[BoxData[
 FormBox[
  FractionBox["1", 
   TemplateBox[{"\"(\"","\"-\"",RowBox[{
       FormBox[
        FormBox["p", TraditionalForm], TraditionalForm], 
       FormBox["\"\[CenterDot]\"", TraditionalForm], 
       FormBox[
        FormBox["q", TraditionalForm], TraditionalForm]}],"\"+\"",
     RowBox[{"\[ImaginaryI]", " ", "\"\[Eta]\""}],"\")\""},
    "RowDefault"]], TraditionalForm]], "Output",
 ImageSize->{94, 38},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[14]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FeynAmpDenominator", "[", 
  RowBox[{"StandardPropagatorDenominator", "[", 
   RowBox[{"0", ",", 
    RowBox[{"Pair", "[", 
     RowBox[{
      RowBox[{"Momentum", "[", 
       RowBox[{"p", ",", "D"}], "]"}], ",", 
      RowBox[{"Momentum", "[", 
       RowBox[{"q", ",", "D"}], "]"}]}], "]"}], ",", "0", ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", 
      RowBox[{"-", "1"}]}], "}"}]}], "]"}], "]"}]], "Input",
 CellLabel->"In[15]:="],

Cell[BoxData[
 FormBox[
  FractionBox["1", 
   TemplateBox[{"\"(\"",RowBox[{
       FormBox[
        FormBox["p", TraditionalForm], TraditionalForm], 
       FormBox["\"\[CenterDot]\"", TraditionalForm], 
       FormBox[
        FormBox["q", TraditionalForm], TraditionalForm]}],"\"-\"",
     RowBox[{"\[ImaginaryI]", " ", "\"\[Eta]\""}],"\")\""},
    "RowDefault"]], TraditionalForm]], "Output",
 ImageSize->{84, 38},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[15]="]
}, Open  ]],

Cell["\<\
The shortcut to enter FeynAmpDenominators with StandardPropagatorDenominators \
is SFAD\
\>", "Notes"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"FeynAmpDenominator", "[", 
    RowBox[{"StandardPropagatorDenominator", "[", 
     RowBox[{
      RowBox[{"Momentum", "[", 
       RowBox[{"p", ",", "D"}], "]"}], ",", "0", ",", 
      RowBox[{"-", 
       RowBox[{"m", "^", "2"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}]}], "]"}], "]"}], "//", "FCE"}], "//", 
  "StandardForm"}]], "Input",
 CellTags->"FeynAmpDenominator",
 CellLabel->"In[16]:=",
 CellID->484409356],

Cell[BoxData[
 RowBox[{"SFAD", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"p", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      SuperscriptBox["m", "2"], ",", "1"}], "}"}], ",", "1"}], "}"}], 
  "]"}]], "Output",
 ImageSize->{205, 21},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"FeynAmpDenominator",
 CellLabel->"Out[16]//StandardForm="]
}, Open  ]],

Cell["\<\
Eikonal propagators are entered using the dot (\".\") as in noncommutative \
products\
\>", "Notes"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"FeynAmpDenominator", "[", 
    RowBox[{"StandardPropagatorDenominator", "[", 
     RowBox[{"0", ",", 
      RowBox[{"Pair", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", 
         RowBox[{"p", ",", "D"}], "]"}], ",", 
        RowBox[{"Momentum", "[", 
         RowBox[{"q", ",", "D"}], "]"}]}], "]"}], ",", 
      RowBox[{"-", 
       RowBox[{"m", "^", "2"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}]}], "]"}], "]"}], "//", "FCE"}], "//", 
  "StandardForm"}]], "Input",
 CellLabel->"In[17]:="],

Cell[BoxData[
 RowBox[{"SFAD", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"p", ".", "q"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      SuperscriptBox["m", "2"], ",", "1"}], "}"}], ",", "1"}], "}"}], 
  "]"}]], "Output",
 ImageSize->{223, 21},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[17]//StandardForm="]
}, Open  ]],

Cell["\<\
The Cartesian version of StandardPropagatorDenominator is called \
CartesianPropagatorDenominator. The syntax is almost the same as in \
StandardPropagatorDenominator, except that the momenta and scalar products \
must be Cartesian.\
\>", "Notes"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FeynAmpDenominator", "[", 
  RowBox[{"CartesianPropagatorDenominator", "[", 
   RowBox[{
    RowBox[{"CartesianMomentum", "[", 
     RowBox[{"p", ",", 
      RowBox[{"D", "-", "1"}]}], "]"}], ",", "0", ",", 
    RowBox[{"m", "^", "2"}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", 
      RowBox[{"-", "1"}]}], "}"}]}], "]"}], "]"}]], "Input",
 CellLabel->"In[18]:="],

Cell[BoxData[
 FormBox[
  FractionBox["1", 
   TemplateBox[{"\"(\"",SuperscriptBox[
      FormBox[
       FormBox[
        StyleBox["p", Bold, StripOnInput -> False], TraditionalForm], 
       TraditionalForm], 2],"\"+\"",SuperscriptBox["m", "2"],"\"-\"",
     RowBox[{"\[ImaginaryI]", " ", "\"\[Eta]\""}],"\")\""},
    "RowDefault"]], TraditionalForm]], "Output",
 ImageSize->{103, 40},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[18]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FeynAmpDenominator", "[", 
  RowBox[{"CartesianPropagatorDenominator", "[", 
   RowBox[{"0", ",", 
    RowBox[{"CartesianPair", "[", 
     RowBox[{
      RowBox[{"CartesianMomentum", "[", 
       RowBox[{"p", ",", 
        RowBox[{"D", "-", "1"}]}], "]"}], ",", 
      RowBox[{"CartesianMomentum", "[", 
       RowBox[{"q", ",", 
        RowBox[{"D", "-", "1"}]}], "]"}]}], "]"}], ",", 
    RowBox[{"m", "^", "2"}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", 
      RowBox[{"-", "1"}]}], "}"}]}], "]"}], "]"}]], "Input",
 CellLabel->"In[19]:="],

Cell[BoxData[
 FormBox[
  FractionBox["1", 
   TemplateBox[{"\"(\"",RowBox[{
       FormBox[
        FormBox[
         StyleBox["p", Bold, StripOnInput -> False], TraditionalForm], 
        TraditionalForm], 
       FormBox["\"\[CenterDot]\"", TraditionalForm], 
       FormBox[
        FormBox[
         StyleBox["q", Bold, StripOnInput -> False], TraditionalForm], 
        TraditionalForm]}],"\"+\"",SuperscriptBox["m", "2"],"\"-\"",
     RowBox[{"\[ImaginaryI]", " ", "\"\[Eta]\""}],"\")\""},
    "RowDefault"]], TraditionalForm]], "Output",
 ImageSize->{119, 40},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[19]="]
}, Open  ]],

Cell["\<\
The shortcut to enter FeynAmpDenominators with \
CartesianPropagatorDenominators is CFAD\
\>", "Notes"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"FCE", "[", 
   RowBox[{"FeynAmpDenominator", "[", 
    RowBox[{"CartesianPropagatorDenominator", "[", 
     RowBox[{
      RowBox[{"CartesianMomentum", "[", 
       RowBox[{"p", ",", 
        RowBox[{"D", "-", "1"}]}], "]"}], ",", "0", ",", 
      RowBox[{"m", "^", "2"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", 
        RowBox[{"-", "1"}]}], "}"}]}], "]"}], "]"}], "]"}], "//", 
  "StandardForm"}]], "Input",
 CellLabel->"In[20]:="],

Cell[BoxData[
 RowBox[{"CFAD", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"p", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      SuperscriptBox["m", "2"], ",", 
      RowBox[{"-", "1"}]}], "}"}], ",", "1"}], "}"}], "]"}]], "Output",
 ImageSize->{215, 21},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[20]//StandardForm="]
}, Open  ]],

Cell["\<\
To represent completely arbitrary propagators one can use \
GenericPropagatorDenominator. However, one should keep in mind that the \
number of operations using such propagators is very limited.\
\>", "Notes"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FeynAmpDenominator", "[", 
  RowBox[{"GenericPropagatorDenominator", "[", 
   RowBox[{"x", ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1"}], "}"}]}], "]"}], "]"}]], "Input",
 CellLabel->"In[21]:="],

Cell[BoxData[
 FormBox[
  FractionBox["1", 
   TemplateBox[{
    "\"(\"","x","\"+\"",RowBox[{"\[ImaginaryI]", " ", "\"\[Eta]\""}],"\")\""},
    
    "RowDefault"]], TraditionalForm]], "Output",
 ImageSize->{60, 38},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[21]="]
}, Open  ]],

Cell["\<\
This is a nonlinear propagator that appears in the calculation of the QCD \
Energy-Energy-Correlation function\
\>", "Notes"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FeynAmpDenominator", "[", 
  RowBox[{"GenericPropagatorDenominator", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "z", " ", 
      RowBox[{"Pair", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", 
         RowBox[{"p1", ",", "D"}], "]"}], ",", 
        RowBox[{"Momentum", "[", 
         RowBox[{"Q", ",", "D"}], "]"}]}], "]"}], 
      RowBox[{"Pair", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", 
         RowBox[{"p2", ",", "D"}], "]"}], ",", 
        RowBox[{"Momentum", "[", 
         RowBox[{"Q", ",", "D"}], "]"}]}], "]"}]}], "-", 
     RowBox[{"Pair", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", 
        RowBox[{"p1", ",", "D"}], "]"}], ",", 
       RowBox[{"Momentum", "[", 
        RowBox[{"p2", ",", "D"}], "]"}]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1"}], "}"}]}], "]"}], "]"}]], "Input",
 CellLabel->"In[22]:="],

Cell[BoxData[
 FormBox[
  FractionBox["1", 
   TemplateBox[{"\"(\"",RowBox[{
       RowBox[{"2", " ", "z", " ", 
         RowBox[{"(", 
           RowBox[{
             FormBox[
              FormBox["p1", TraditionalForm], TraditionalForm], 
             FormBox["\"\[CenterDot]\"", TraditionalForm], 
             FormBox[
              FormBox["Q", TraditionalForm], TraditionalForm]}], ")"}], " ", 
         RowBox[{"(", 
           RowBox[{
             FormBox[
              FormBox["p2", TraditionalForm], TraditionalForm], 
             FormBox["\"\[CenterDot]\"", TraditionalForm], 
             FormBox[
              FormBox["Q", TraditionalForm], TraditionalForm]}], ")"}]}], "-", 
       RowBox[{
         FormBox[
          FormBox["p1", TraditionalForm], TraditionalForm], 
         FormBox["\"\[CenterDot]\"", TraditionalForm], 
         FormBox[
          FormBox["p2", TraditionalForm], TraditionalForm]}]}],"\"+\"",
     RowBox[{"\[ImaginaryI]", " ", "\"\[Eta]\""}],"\")\""},
    "RowDefault"]], TraditionalForm]], "Output",
 ImageSize->{244, 38},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[22]="]
}, Open  ]],

Cell["\<\
The shortcut to enter FeynAmpDenominators with GenericPropagatorDenominators \
is GFAD\
\>", "Notes"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"FeynAmpDenominator", "[", 
    RowBox[{"GenericPropagatorDenominator", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"2", " ", "z", " ", 
        RowBox[{"Pair", "[", 
         RowBox[{
          RowBox[{"Momentum", "[", 
           RowBox[{"p1", ",", "D"}], "]"}], ",", 
          RowBox[{"Momentum", "[", 
           RowBox[{"Q", ",", "D"}], "]"}]}], "]"}], 
        RowBox[{"Pair", "[", 
         RowBox[{
          RowBox[{"Momentum", "[", 
           RowBox[{"p2", ",", "D"}], "]"}], ",", 
          RowBox[{"Momentum", "[", 
           RowBox[{"Q", ",", "D"}], "]"}]}], "]"}]}], "-", 
       RowBox[{"Pair", "[", 
        RowBox[{
         RowBox[{"Momentum", "[", 
          RowBox[{"p1", ",", "D"}], "]"}], ",", 
         RowBox[{"Momentum", "[", 
          RowBox[{"p2", ",", "D"}], "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}]}], "]"}], "]"}], "//", "FCE"}], "//", 
  "StandardForm"}]], "Input",
 CellLabel->"In[23]:="],

Cell[BoxData[
 RowBox[{"GFAD", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"SPD", "[", 
         RowBox[{"p1", ",", "p2"}], "]"}]}], "+", 
       RowBox[{"2", " ", "z", " ", 
        RowBox[{"SPD", "[", 
         RowBox[{"p1", ",", "Q"}], "]"}], " ", 
        RowBox[{"SPD", "[", 
         RowBox[{"p2", ",", "Q"}], "]"}]}]}], ",", "1"}], "}"}], ",", "1"}], 
   "}"}], "]"}]], "Output",
 ImageSize->{429, 15},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[23]//StandardForm="]
}, Open  ]]
}, Open  ]],

Cell["", "SectionFooterSpacer"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{6, 0}],
    CacheGraphics->False],
   Spacer[6]]]],
 "See Also"
}], "SeeAlsoSection",
 WholeCellGroupOpener->True,
 CellID->1255426704],

Cell[TextData[{
 StyleBox[ButtonBox["FAD",
  BaseStyle->"Link",
  ButtonData->"paclet:FeynCalc/ref/FAD",
  ButtonNote->"FAD"],
  FontFamily->"Verdana"],
 ", ",
 StyleBox[ButtonBox["SFAD",
  BaseStyle->"Link",
  ButtonData->"paclet:FeynCalc/ref/SFAD",
  ButtonNote->"SFAD"],
  FontFamily->"Verdana"],
 ", ",
 StyleBox[ButtonBox["CFAD",
  BaseStyle->"Link",
  ButtonData->"paclet:FeynCalc/ref/CFAD",
  ButtonNote->"CFAD"],
  FontFamily->"Verdana"],
 ", ",
 StyleBox[ButtonBox["GFAD",
  BaseStyle->"Link",
  ButtonData->"paclet:FeynCalc/ref/GFAD",
  ButtonNote->"GFAD"],
  FontFamily->"Verdana"],
 ", ",
 StyleBox[ButtonBox["FeynAmpDenominatorSimplify",
  BaseStyle->"Link",
  ButtonData->"paclet:FeynCalc/ref/FeynAmpDenominatorSimplify",
  ButtonNote->"FeynAmpDenominatorSimplify"],
  FontFamily->"Verdana"],
 "."
}], "SeeAlso"]
}, Open  ]],

Cell[" ", "FooterCell"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{725, 750},
WindowMargins->{{-10, Automatic}, {Automatic, -8}},
WindowTitle->"FeynAmpDenominator",
TaggingRules->{
 "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
  GridBox[{{
      RowBox[{
        ButtonBox[
        "FeynCalc", ButtonData -> "paclet:FeynCalc/guide/FeynCalc", 
         BaseStyle -> {"Link", "DockedLinkTrail"}]}]}}, ColumnAlignments -> 
    Left], "HasOptions" -> False, "ExampleCounter" -> 1, "NeedPlatMsgIn" -> 
  None, "RootCaptions" -> "", 
  "Metadata" -> {
   "built" -> "{2020, 6, 20, 19, 6, 36.595156}", 
    "history" -> {"9.0", "", "", ""}, "context" -> "FeynCalc`", 
    "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Feyn Calc Symbol", "language" -> "en", "paclet" -> "FeynCalc", "status" -> 
    "None", "summary" -> 
    "FeynAmpDenominator[ ...] represents the inverse denominators of the \
propagators, i.e. FeynAmpDenominator[x] is 1/x. Different propagator \
denominators are represented using special heads such as \
PropagatorDenominator, StandardPropagatorDenominator, \
CartesianPropagatorDenominator etc.", "synonyms" -> {}, "tabletags" -> {}, 
    "title" -> "FeynAmpDenominator", "titlemodifier" -> "", "windowtitle" -> 
    "FeynAmpDenominator", "type" -> "Symbol", "uri" -> 
    "FeynCalc/ref/FeynAmpDenominator"}, "SearchTextTranslated" -> ""},
CellContext->"Global`",
FrontEndVersion->"10.4 for Linux x86 (64-bit) (April 11, 2016)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[
    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
   Cell[
    StyleData["Input"], CellContext -> "Global`"], 
   Cell[
    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
  FrontEndVersion -> "10.4 for Linux x86 (64-bit) (April 11, 2016)", 
  StyleDefinitions -> "Default.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "PrimaryExamplesSection"->{
  Cell[4907, 133, 388, 15, 31, "PrimaryExamplesSection",
   CellTags->"PrimaryExamplesSection",
   CellID->2051527841]},
 "FeynAmpDenominator"->{
  Cell[5973, 174, 283, 8, 27, "Input",
   CellTags->"FeynAmpDenominator",
   CellID->1348679348],
  Cell[6259, 184, 633, 21, 61, "Output",
   CellTags->"FeynAmpDenominator"],
  Cell[6929, 210, 480, 15, 45, "Input",
   CellTags->"FeynAmpDenominator",
   CellID->1096136338],
  Cell[7412, 227, 1496, 49, 64, "Output",
   CellTags->"FeynAmpDenominator"],
  Cell[9049, 285, 357, 11, 45, "Input",
   CellTags->"FeynAmpDenominator",
   CellID->1592188506],
  Cell[9409, 298, 261, 8, 51, "Output",
   CellTags->"FeynAmpDenominator"],
  Cell[21360, 713, 489, 15, 45, "Input",
   CellTags->"FeynAmpDenominator",
   CellID->484409356],
  Cell[21852, 730, 407, 14, 57, "Output",
   CellTags->"FeynAmpDenominator"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"PrimaryExamplesSection", 34927, 1168},
 {"FeynAmpDenominator", 35073, 1172}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[590, 21, 3397, 79, 53, "AnchorBarGrid",
 CellID->1],
Cell[3990, 102, 295, 11, 45, "ObjectNameGrid"],
Cell[4288, 115, 594, 14, 102, "Usage",
 CellID->982511436],
Cell[CellGroupData[{
Cell[4907, 133, 388, 15, 31, "PrimaryExamplesSection",
 CellTags->"PrimaryExamplesSection",
 CellID->2051527841],
Cell[CellGroupData[{
Cell[5320, 152, 196, 6, 26, "ExampleSection",
 CellID->1744548355],
Cell[5519, 160, 429, 10, 66, "Notes"],
Cell[CellGroupData[{
Cell[5973, 174, 283, 8, 27, "Input",
 CellTags->"FeynAmpDenominator",
 CellID->1348679348],
Cell[6259, 184, 633, 21, 61, "Output",
 CellTags->"FeynAmpDenominator"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6929, 210, 480, 15, 45, "Input",
 CellTags->"FeynAmpDenominator",
 CellID->1096136338],
Cell[7412, 227, 1496, 49, 64, "Output",
 CellTags->"FeynAmpDenominator"]
}, Open  ]],
Cell[8923, 279, 101, 2, 32, "Notes"],
Cell[CellGroupData[{
Cell[9049, 285, 357, 11, 45, "Input",
 CellTags->"FeynAmpDenominator",
 CellID->1592188506],
Cell[9409, 298, 261, 8, 51, "Output",
 CellTags->"FeynAmpDenominator"]
}, Open  ]],
Cell[9685, 309, 115, 3, 32, "Notes"],
Cell[CellGroupData[{
Cell[9825, 316, 354, 10, 45, "Input"],
Cell[10182, 328, 434, 12, 61, "Output"]
}, Open  ]],
Cell[10631, 343, 107, 3, 32, "Notes"],
Cell[CellGroupData[{
Cell[10763, 350, 333, 9, 45, "Input"],
Cell[11099, 361, 425, 12, 61, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11561, 378, 309, 8, 45, "Input"],
Cell[11873, 388, 399, 11, 61, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12309, 404, 366, 10, 45, "Input"],
Cell[12678, 416, 518, 14, 61, "Output"]
}, Open  ]],
Cell[13211, 433, 211, 5, 48, "Notes"],
Cell[CellGroupData[{
Cell[13447, 442, 376, 11, 45, "Input"],
Cell[13826, 455, 434, 12, 61, "Output"]
}, Open  ]],
Cell[14275, 470, 75, 0, 32, "Notes"],
Cell[CellGroupData[{
Cell[14375, 474, 333, 9, 45, "Input"],
Cell[14711, 485, 456, 13, 61, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15204, 503, 356, 10, 45, "Input"],
Cell[15563, 515, 429, 12, 39, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16029, 532, 334, 9, 45, "Input"],
Cell[16366, 543, 448, 13, 39, "Output"]
}, Open  ]],
Cell[16829, 559, 55, 0, 32, "Notes"],
Cell[CellGroupData[{
Cell[16909, 563, 485, 14, 45, "Input"],
Cell[17397, 579, 556, 15, 61, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17990, 599, 439, 12, 45, "Input"],
Cell[18432, 613, 507, 14, 59, "Output"]
}, Open  ]],
Cell[18954, 630, 238, 6, 49, "Notes"],
Cell[CellGroupData[{
Cell[19217, 640, 465, 13, 45, "Input"],
Cell[19685, 655, 515, 14, 59, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20237, 674, 461, 13, 45, "Input"],
Cell[20701, 689, 507, 14, 59, "Output"]
}, Open  ]],
Cell[21223, 706, 112, 3, 32, "Notes"],
Cell[CellGroupData[{
Cell[21360, 713, 489, 15, 45, "Input",
 CellTags->"FeynAmpDenominator",
 CellID->484409356],
Cell[21852, 730, 407, 14, 57, "Output",
 CellTags->"FeynAmpDenominator"]
}, Open  ]],
Cell[22274, 747, 110, 3, 32, "Notes"],
Cell[CellGroupData[{
Cell[22409, 754, 574, 17, 62, "Input"],
Cell[22986, 773, 401, 14, 57, "Output"]
}, Open  ]],
Cell[23402, 790, 257, 5, 66, "Notes"],
Cell[CellGroupData[{
Cell[23684, 799, 393, 11, 45, "Input"],
Cell[24080, 812, 476, 13, 61, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24593, 830, 572, 16, 62, "Input"],
Cell[25168, 848, 657, 18, 61, "Output"]
}, Open  ]],
Cell[25840, 869, 113, 3, 32, "Notes"],
Cell[CellGroupData[{
Cell[25978, 876, 480, 14, 45, "Input"],
Cell[26461, 892, 393, 13, 57, "Output"]
}, Open  ]],
Cell[26869, 908, 219, 4, 65, "Notes"],
Cell[CellGroupData[{
Cell[27113, 916, 225, 6, 27, "Input"],
Cell[27341, 924, 304, 10, 59, "Output"]
}, Open  ]],
Cell[27660, 937, 135, 3, 48, "Notes"],
Cell[CellGroupData[{
Cell[27820, 944, 904, 26, 79, "Input"],
Cell[28727, 972, 1156, 30, 59, "Output"]
}, Open  ]],
Cell[29898, 1005, 111, 3, 32, "Notes"],
Cell[CellGroupData[{
Cell[30034, 1012, 1017, 29, 79, "Input"],
Cell[31054, 1043, 586, 19, 51, "Output"]
}, Open  ]]
}, Open  ]],
Cell[31667, 1066, 31, 0, 29, "SectionFooterSpacer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31735, 1071, 270, 12, 31, "SeeAlsoSection",
 CellID->1255426704],
Cell[32008, 1085, 826, 31, 56, "SeeAlso"]
}, Open  ]],
Cell[32849, 1119, 23, 0, 41, "FooterCell"]
}
]
*)

(* End of internal cache information *)

